VERSION 5.00
Begin VB.Form About 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "About Weather Browser"
   ClientHeight    =   4620
   ClientLeft      =   4140
   ClientTop       =   3945
   ClientWidth     =   5055
   Icon            =   "About.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4620
   ScaleWidth      =   5055
   StartUpPosition =   2  'CenterScreen
   Visible         =   0   'False
   Begin VB.TextBox txtAbout 
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1395
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   6
      Text            =   "About.frx":0CCA
      Top             =   2400
      Width           =   4830
   End
   Begin VB.TextBox Homepage 
      Height          =   285
      Left            =   2640
      TabIndex        =   5
      Text            =   "http://ottech.cjb.net/index.html"
      Top             =   3720
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton butCloseAbout 
      BackColor       =   &H00FF8080&
      Caption         =   "&Close Window"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   4200
      Width           =   4815
   End
   Begin VB.Label lblCopyright 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "(c) Whenever Overtech Technologies"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Left            =   0
      TabIndex        =   9
      Top             =   3840
      Width           =   2730
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Technologies "
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   210
      Left            =   1320
      TabIndex        =   8
      Top             =   480
      Width           =   1365
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Overtech"
      BeginProperty Font 
         Name            =   "Arial Black"
         Size            =   21.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   615
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   2415
   End
   Begin VB.Label lblSendFeedback 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Send Feedback to: feedback@overtechtechnologies.com"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   120
      TabIndex        =   4
      Top             =   1800
      Width           =   4710
   End
   Begin VB.Label lblOTHome 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Overtech Homepage: http://OvertechTechnologies.com"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   120
      TabIndex        =   3
      Top             =   1200
      Width           =   4515
   End
   Begin VB.Label lblHomepage 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Product Homepage"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   120
      TabIndex        =   2
      Top             =   1440
      Width           =   1575
   End
   Begin VB.Label lblWBrowser 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "Weather Browser 1.0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1200
      TabIndex        =   0
      Top             =   720
      Width           =   3735
   End
   Begin VB.Shape Shape1 
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFC0C0&
      FillStyle       =   0  'Solid
      Height          =   1575
      Left            =   0
      Top             =   2400
      Width           =   5100
   End
   Begin VB.Image Image1 
      Height          =   2670
      Left            =   0
      Picture         =   "About.frx":0CE5
      Top             =   0
      Width           =   5070
   End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub butCloseAbout_Click()
Unload About

End Sub


Private Sub Form_Load()
'============================================================
' OT Standard Library: Visual Basic
' About.frm
'
' Description:  This form will act like a template for all
'               OTTech About Screens.  Here is what this
'               Library Uses:
'
'       App.CompanyName     = For Company Name to be posted
'       App.FileDescription = For Description of Program
'       App.ProductName     = For Name of Product
'
' Notes:    This form will unload itself once it is no longer
'           being used so be sure to set the about command to
'           load this form, not just make it visible
'
'           Also, as a precaution, put an 'Unload About'
'           statement in the main program so that the program
'           terminates properly even when the user forgets to
'           close the About Window
'
' Required Parameters:
'       About.Homepage       = Product Homepage
'           // Should be set after the 'Load About' statement
'           // Default: http://ottech.cjb.net/index.html
'
' Requirements: This library requires ShellExec.bas also
'               be loaded in order to operate properly
' ========================================================

lblWBrowser.FontBold = True
lblOTHome.FontUnderline = True
lblHomepage.FontUnderline = True
lblSendFeedback.FontUnderline = True

Me.Caption = "About " & App.ProductName
txtAbout.Text = "Programmed by David Grega for " & App.CompanyName & Chr(13) & Chr(10) & Chr(13) & Chr(10) & App.FileDescription
lblWBrowser.Caption = App.ProductName & " " & App.Major & "." & App.Minor & "." & App.Revision
lblCopyright = App.LegalCopyright

Me.Visible = True


End Sub


Sub Form_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
lblOTHome.ForeColor = &HFFFFFF
lblHomepage.ForeColor = &HFFFFFF
lblSendFeedback.ForeColor = &HFFFFFF

End Sub



Private Sub Homepage_Change()
lblHomepage.Caption = App.ProductName & " Homepage: " & Homepage
End Sub

Private Sub lblHomepage_Click()

 Dim iret As Long
 iret = ShellExecute(Me.hwnd, _
    vbNullString, _
    Homepage, _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)

End Sub


Private Sub lblHomepage_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove button, Shift, X, Y
lblHomepage.ForeColor = Me.BackColor
End Sub


Private Sub lblOTHome_Click()
 Dim iret As Long
 iret = ShellExecute(Me.hwnd, _
    vbNullString, _
    "http://overtechtechnologies.com", _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)
End Sub


Private Sub lblOTHome_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove button, Shift, X, Y
lblOTHome.ForeColor = Me.BackColor
End Sub


Private Sub lblSendFeedback_Click()
 Dim iret As Long
 iret = ShellExecute(Me.hwnd, _
    vbNullString, _
    "mailto:feedback@overtechtechnologies.com", _
    vbNullString, _
    "c:\", _
    SW_SHOWNORMAL)
End Sub

Private Sub lblSendFeedback_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove button, Shift, X, Y
lblSendFeedback.ForeColor = Me.BackColor
End Sub


Private Sub txtAbout_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove button, Shift, X, Y
End Sub


